home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / fglqbx10.zip / 08-01.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  550b  |  35 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. CONST Pages = 4
  6.  
  7. IF FGtestmode(1,Pages) = 0 THEN
  8.    PRINT "This program requires color."
  9.    STOP
  10. END IF
  11.  
  12. OldMode = FGgetmode
  13. FGsetmode 1
  14.  
  15. FOR Page = 0 TO Pages-1
  16.    FGsetpage Page
  17.    RectColor = Page + 1
  18.    FGsetcolor RectColor
  19.    FGrect 0, FGgetmaxx, 0, FGgetmaxy
  20.    FGsetattr 0, RectColor, 0
  21.    FGlocate 12, 17
  22.    CharString$ = "Page" + STR$(Page)
  23.    FGtext CharString$, 6
  24. NEXT
  25.  
  26. FOR Page = 0 TO Pages-1
  27.    FGsetvpage Page
  28.    FGwaitkey
  29. NEXT
  30.  
  31. FGsetmode OldMode
  32. FGreset
  33.  
  34. END
  35.